function C = inil_vars(CT)

    %**********************************************************************
    %************************ MODULES FOR ROCKET3 **************************
    %**********************************************************************
    %*** *
    %*** * Calling sequence of Modules:
    %*** *   G2   ENVIRONMENT
    %*** *   A2   PROPULSION
    %*** *   A1   AERODYNAMICS
    %*** *   A3   FORCES
    %*** *   C2   AUTOPILOT
    %*** *   C4   ACTUATOR
    %*** *   D1   NEWTONS LAW
    %*** * with dummy RETURNs for unused modules
    
    %global C;
    
    % Naming clash with C class, also large numbers not fitting, only small
    % decimals?!
    C = zeros(1,3510);


    % Initialise variables - Function CADX3.INI1_VARS
    C(CT.CRAD) = 57.29577951;

    %---  Conversion factor,  CFTM: multiply times feet to obtain meters
    C(CT.CFTM) = .3048006;

    %---  Conversion factor, CKFPS: multiply times knots to obtain ft/sec.
    C(CT.CKFPS) = 1.6878;

    %---  Radius of the Earth (ft)
    C(CT.REARTH) = 20902190.;

    %--- Gravitational parameter mu for the Earth (ft^3/sec^2)
    C(CT.AMU) = 1.407645E+16;

    %--- Acceleration due to gravity (ft/sec^2)
    C(CT.AGRAV)  = 32.174;


    %---  WEII3 = omega = angular rotation of the earth (rad/sec)
    %     This variable is initialized to the rotating earth model 
    %     (OPNORO=0).  If a NON rotating earth is desired, the OPNORO flag 
    %     should be set to 1.0 with a type 3 card.
    C(CT.WEII3) = 7.2921154E-05;

end

